home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 March & April / rerun-1986-03-04.d64 / copy char set (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  757b  |  28 lines
  1. 10 rem copy c64 character set
  2. 40 poke 56333,127 : rem irq off
  3. 50 poke 1,peek(1)and 251 : rem char set in, i/o chips out
  4. 80 rem copy set to $6000
  5. 90 cset=13*4096+8*256 : copy=6*4096
  6. 100 for loop=0 to 2047
  7. 110 poke copy+loop,peek(cset+loop)
  8. 120 next loop
  9. 150 poke 1,peek(1)or4 : rem i/o chips in, rom char set out
  10. 160 poke 56333,128+1 : rem irq on
  11. 190 rem save character set
  12. 210 print"[147]8 - disk"
  13. 220 print"9 - disk"
  14. 230 input"save to device number";dev
  15. 240 if dev<>1 and dev<>8 and dev<>9 then 230
  16. 250 poke 780,0:poke 781,dev:poke 782,0
  17. 260 sys 65466:rem setlfs
  18. 280 nam$="c64 char set"
  19. 290 for loop=1 to len(nam$)
  20. 300 poke 849+loop,asc(mid$(nam$,loop,1))
  21. 310 next loop
  22. 320 poke 780,len(nam$) : poke 781,850and255 : poke 782,850/256
  23. 330 sys 65469 : rem setnam
  24. 350 poke 253,0 : poke 254,6*16
  25. 360 poke 780,253 : poke 781,26624and255 : poke 782,26624/256
  26. 370 sys 65496 : rem save
  27. 400 end
  28.